home *** CD-ROM | disk | FTP | other *** search
/ Mesolore / Mesolore - Disc 2.iso / mac / data / Selden.dir / 00018_Script_Nav(scroll) Codex Left < prev    next >
Text File  |  2001-03-05  |  388b  |  17 lines
  1. on mouseDown
  2.   global cdxScroll
  3.   GenLeaveCdx
  4. --  cursor 135
  5.   set cdxScroll = TRUE
  6.   set ctr = 1
  7.   set sprNum = the clickOn
  8.   set cNum = integer(char 2 of the frameLabel)
  9.   repeat while (the mouseDown and the type of sprite sprNum <> 0) or ctr = 1
  10.     goto (the frame + 1)
  11.     set ctr = ctr+1
  12.   end repeat
  13.   set cdxScroll = FALSE
  14.   GenEnterCdx
  15.   setTextRow
  16.   cursor 0
  17. end